NBC Slam Jams!/NBC Slam Jams!.iso/xtras/media_la/effector.cst/00010_Script_Rotate Click

Text File | 1997-09-30 | 2KB | 59 lines

-- Rotate On Click




Property pStep, pDirection,activated,pInterp

on getPropertyDescriptionList
  if not alphamaniacCheck(the currentSpriteNum) then exit

  set pList=[:]
  addProp pList,#pDirection,[format:#symbol,comment:"Direction:", Default:#CW,range:[#CW,#CCW]]
  addProp pList,#pStep,[format:#integer,comment:"Degrees per step:", Default:5, range:[min:5,max:45]]
  addProp pList,#pInterp,[format:#symbol,¼
                               comment:"Interpolation:",¼
                               Default:#On,range:[#Off,#On,#Paused]]

  return pList
end

on beginSprite me
  set s=the spriteNum of me
  if not alphaManiac(s) then exit

  set pInterp=interpolation(pInterp)
  if pDirection=#CCW then set pStep = pStep * -1
  set activated=false
end

on mouseDown me
  set activated=true
end

on mouseUp me
  set activated=false
end

on mouseWithin me
  if activated then step(me)
end

on step me
  set s=the spriteNum of me
  if not alphaManiac(s) then exit

  rotate(sprite s,[animMode:#static,deltaDegrees:pStep,interpolation:pInterp])
end


on getBehaviorDescription me
  set msg= "Your AlphaManiac will rotate by a specified amount each time it's clicked, and will keep rotating if you hold the mouse button down on it."
  put return & return after msg
  put "Parameters:" & return & "-----------" & return  after msg
  put "*        Direction:   CW (Clockwise) or CCW" & return after msg
  put "*  Degrees/Step:  How much does it move each click?" & return after msg
  put "*   Interpolation:   On,Off,or While Paused" after msg
  put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  return msg
end